larger.se<-function(vc1, vc2, var, var2, combo=F){
	
	if(combo==F){
		
		se1<-sqrt(vc1[var,var])
		se2<-sqrt(vc2[var,var])
		if(se1>se2){se<-se1}
		if(se1<se2){se<-se2}
		return(se)
		
	}

	if(combo==T){
		
		se1<-sqrt(vc1[var,var] + vc1[var2,var2] + 2*vc1[var, var2])
		se2<-sqrt(vc2[var,var] + vc2[var2,var2] + 2*vc2[var, var2])
		if(se1>se2){se<-se1}
		if(se1<se2){se<-se2}
		return(se)
	}	
		
}